﻿Public Class Archivo
    Private id As Integer
    Private nombre As String
    Private fecha As Date
    Private url As String
    Public Sub New()

    End Sub
    Public Property myId As Integer
        Get
            Return id
        End Get
        Set(ByVal value As Integer)
            id = value
        End Set
    End Property
    Public Property myNombre As Integer
        Get
            Return nombre
        End Get
        Set(ByVal value As Integer)
            nombre = value
        End Set
    End Property
    Public Property myFecha As Date
        Get
            Return fecha
        End Get
        Set(ByVal value As Date)
            fecha = value
        End Set
    End Property
    Public Property myUrl As String
        Get
            Return url
        End Get
        Set(ByVal value As String)
            url = value
        End Set
    End Property
End Class
